home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 54.zip / BS part 54 / A-TrainConstSet_d1.adf / Install Construction Set < prev    next >
Encoding:
Text File  |  1993-03-25  |  2.1 KB  |  120 lines
  1. ; installation script for AT Constuction Set
  2.  
  3. ; check things out
  4.  
  5. (set def-dest @default-dest)
  6. (set def-dest-maybe (tackon @default-dest "A-Train Drawer"))
  7.  
  8. (if (exists def-dest-maybe) (set def-dest def-dest-maybe))
  9.  
  10. ; tell user that the game needs to installed where A-Train was
  11.  
  12. (set old-user @user-level)
  13. (user 2)
  14.  
  15. (message
  16.     (cat "\nYour copy of AT Constuction Set needs to be installed in the same "
  17.          "drawer that A-Train was installed. You will be asked to locate the "
  18.          "A-Train Drawer so the installation can continue."
  19.     )
  20. )
  21.  
  22. ; ask user where to put the drawer
  23.  
  24. (set ok 0)
  25.  
  26. (while (not ok)
  27.     (
  28.         (set robopath
  29.             (askdir
  30.                 (prompt "Please indicate where the A-Train drawer is located.")
  31.                 (help @askdir-help)
  32.                 (default def-dest)
  33.             )
  34.         )
  35.  
  36.         (if (exists (tackon robopath "Data"))
  37.             (set ok 1)
  38.             (message "A-Train is not installed in that Drawer!")
  39.         )
  40.     )
  41. )
  42.  
  43. (user old-user)
  44.  
  45. (complete 5)
  46.  
  47. (set @default-dest robopath)
  48.  
  49. ; copy ATCS, Examples & new Data to the drawer
  50.  
  51. (message "\nThe game files will now be copied from floppy disk to the A-Train Drawer.")
  52.  
  53. (askdisk
  54.     (prompt "Please insert the disk labeled \"A-Train Construction Set Disk 1\".")
  55.     (help @askdisk-help)
  56.     (dest "ATCS Disk 1")
  57. )
  58.  
  59. (working "Copying program files.")
  60.  
  61. (complete 10)
  62.  
  63. (copyfiles
  64.     (source "ATCS Disk 1:AT Construction Set")
  65.     (dest robopath)
  66.     (infos)
  67. )
  68.  
  69. (complete 30)
  70.  
  71. (copyfiles
  72.     (source "ATCS Disk 1:AT Construction Set HiRes")
  73.     (dest robopath)
  74.     (infos)
  75. )
  76.  
  77. (working "Installing Example Games.")
  78.  
  79. (complete 40)
  80.  
  81. (run
  82.     (cat "\"ATCS Disk 1:c/atcs_expand\" \"ATCS Disk 1:examples.res\" \""
  83.         (tackon robopath "Example") "\" h"
  84.     )
  85. )
  86.  
  87. (complete 50)
  88.  
  89. (askdisk
  90.     (prompt "Please insert the disk labeled \"A-Train Construction Set Disk 2\".")
  91.     (help @askdisk-help)
  92.     (dest "ATCS Disk 2")
  93. )
  94.  
  95. (working "Copying data files.")
  96.  
  97. (copyfiles
  98.     (source "ATCS Disk 2:Data")
  99.     (dest (tackon robopath "Data"))
  100.     (pattern "#?.snd")
  101. )
  102.  
  103. (complete 80)
  104.  
  105. (copyfiles
  106.     (source "ATCS Disk 2:Data/atcs.res")
  107.     (dest (tackon robopath "Data"))
  108. )
  109.  
  110. (complete 95)
  111.  
  112. (if (exists "ATCS Disk 2:Data/atcs.catalog")
  113.     (copyfiles
  114.         (source "ATCS Disk 2:Data/atcs.catalog")
  115.         (dest (tackon robopath "Data"))
  116.     )
  117. )    
  118.  
  119. (complete 100)
  120.